function fig_s_paper(s_grid, tax, alphaN, alphaF, optfig)

if optfig.plotfig == 1
    
    [fontname,~,lw,folder,color,style,~,~,fontsize_tit,~,~,fontsize_leg] = fn_optfig(optfig);
    
    fontsize_lab = 18;
    
    f1 = figure('Units','inches','Position',[0 0 12 4]);
    
    subplot(1,2,1)
    plot(s_grid,alphaF,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    plot(s_grid,tax,   'Color',color{3},'LineStyle',style{2},'LineWidth',lw);
    ylabel('$\alpha_F(s), T(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    xlabel('Aggregate State $(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
%     title('Fiscal Shortfall','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname);
    grid; axis tight; box off;
    ylim([0,1])
    legendCell = {'$\alpha_F(s)$','$T(s)$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend('boxoff')
    
    subplot(1,2,2)
    plot(s_grid,alphaN,'Color',color{3},'LineWidth',lw);
    ylabel('$\alpha_N(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    xlabel('Aggregate State $(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
%     title('Recovery Rate After Failure','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname);
    grid; axis tight; box off;
    
    legendCell = {'$\alpha_N(s)$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend('boxoff')
    
%     sgtitle('Depositors'' Consumption Determinants ','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    
    name = 'alphaN_alphaS_tax';
    print(f1,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])
    
    if optfig.close == 1; close(who('f')); end
    
end
